home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / obero / Interfaces3_4.lha / Interfaces / RexxSysLib.mod < prev    next >
Text File  |  1994-03-05  |  2KB  |  49 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: RexxSysLib.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. **   updated for V40.15 by hartmut Goebel
  8. *)
  9. *)
  10.  
  11. MODULE RexxSysLib;
  12.  
  13. IMPORT e * := Exec,
  14.        rx* := Rexx;
  15.  
  16. CONST
  17.   rexxsysName * = "rexxsyslib.library";
  18.  
  19. VAR
  20.   base * : rx.RxsLibPtr;
  21.  
  22. (*--- functions in V33 or higher (Release 1.2) ---*)
  23. (*----------- Check 'base#NIL' BEFORE you use these ! -----------*)
  24. PROCEDURE CreateArgstring * {base,-126}(string{8}: ARRAY OF CHAR;
  25.                                         length{0}: LONGINT): e.LSTRPTR;
  26. PROCEDURE DeleteArgstring * {base,-132}(argstring{8}: e.LSTRPTR);
  27. PROCEDURE LengthArgstring * {base,-138}(argstring{8}: e.LSTRPTR): LONGINT;
  28. PROCEDURE CreateRexxMsg   * {base,-144}(port{8}: e.MsgPortPtr;
  29.                                         extension{9}: ARRAY OF CHAR;
  30.                                         host{0}: ARRAY OF CHAR): rx.RexxMsgPtr;
  31. PROCEDURE DeleteRexxMsg   * {base,-150}(packet{8}: rx.RexxMsgPtr);
  32. PROCEDURE ClearRexxMsg    * {base,-156}(msgptr{8}: rx.RexxMsgPtr;
  33.                                         count{0}: LONGINT);
  34. PROCEDURE FillRexxMsg     * {base,-162}(msgptr{8}: rx.RexxMsgPtr;
  35.                                         count{0}: LONGINT;
  36.                                         mask{1}: SET): BOOLEAN;
  37. PROCEDURE IsRexxMsg       * {base,-168}(msgptr{8}: rx.RexxMsgPtr): BOOLEAN;
  38. PROCEDURE LockRexxBase    * {base,-450}(resource{0}: LONGINT);
  39. PROCEDURE UnlockRexxBase  * {base,-456}(resource{0}: LONGINT);
  40.  
  41. BEGIN
  42.   base := e.OpenLibrary(rexxsysName,33);
  43.  
  44. CLOSE
  45.   IF base#NIL THEN e.CloseLibrary(base) END;
  46.  
  47. END RexxSysLib.
  48.  
  49.